From: Noam Postavsky Date: Mon, 27 May 2019 01:55:00 +0000 (-0400) Subject: ; Fix read-multiple-choice test X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~3168 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae;p=emacs.git ; Fix read-multiple-choice test * test/lisp/emacs-lisp/rmc-tests.el (test-read-multiple-choice): Rebind read-event, read-multiple-choice uses that since 2019-05-26 "Avoid infloop in read-multiple-choice (Bug#32257)". --- diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el index b20bfd4e0c5..71c7835e204 100644 --- a/test/lisp/emacs-lisp/rmc-tests.el +++ b/test/lisp/emacs-lisp/rmc-tests.el @@ -31,7 +31,7 @@ (ert-deftest test-read-multiple-choice () (dolist (char '(?y ?n)) - (cl-letf* (((symbol-function #'read-char) (lambda () char)) + (cl-letf* (((symbol-function #'read-event) (lambda () char)) (str (if (eq char ?y) "yes" "no"))) (should (equal (list char str) (read-multiple-choice "Do it? " '((?y "yes") (?n "no"))))))))